home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / cenvid / filemday.bat < prev    next >
Encoding:
DOS Batch File  |  1995-04-07  |  1.2 KB  |  39 lines
  1. @echo OFF
  2. REM ***********************************************************
  3. REM *** FileMDay.bat - Save FILE.TMP as FILE.XX where XX is ***
  4. REM *** ver.1          yesterday's date.  Overwrite month-  ***
  5. REM ***                old file with FILE.TMP               ***
  6. REM ***********************************************************
  7.  
  8. REM *** exit if there is no FILE.TMP ***
  9. IF EXIST FILE.TMP GOTO GET_FILE_DAY
  10. ECHO FILE.TMP DOES NOT EXIST
  11. GOTO BYE_BYE
  12.  
  13. :GET_FILE_DAY
  14. REM *** set FILE_DAY name for yesterday's date ***
  15. CEnviD strftime(FILE_DAY,"FILE.%%d",localtime(time()-86400))
  16.  
  17. REM *** if FILE_DAY doesn't exist then simply copy ***
  18. REM *** FILE.TMP over FILE_DAY                     ***
  19. IF EXIST %FILE_DAY% GOTO CHECK_FILE_DATE
  20. ECHO NO FILE FROM LAST MONTH, COPY FILE.TMP TO %FILE_DAY%
  21. COPY FILE.TMP %FILE_DAY%
  22. GOTO BYE_BYE
  23.  
  24. :CHECK_FILE_DATE
  25. REM *** if current FILE_DAY is more than two days ***
  26. REM *** old then copy FILE.TMP over it            ***
  27. CEnviD "exit(difftime(time(),Directory(`%FILE_DAY%`)[0].Write)/86400<2?1:0)"
  28. IF ERRORLEVEL 1 GOTO NO_COPY
  29.  
  30. ECHO COPY FILE.TMP OVER OLD %FILE_DAY%
  31. COPY FILE.TMP %FILE_DAY%
  32. GOTO BYE_BYE
  33.  
  34. :NO_COPY
  35. ECHO NO COPY.  ALREADY HAVE YESTERDAY'S FILE
  36. GOTO BYE_BYE
  37.  
  38. :BYE_BYE
  39.